Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Windows.Forms
Public Class FrmCrTruyvet_mathang
    Private Mahanghoa, Tenhanghoa As String
    Private customerReport As ReportDocument
    Private Sub FrmCrTruyvet_mathang_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim sqlQuery As String = "SELECT * FROM tbl_dot_truyvet_mathang order by STT"
        Dim reportPath = Application.StartupPath & "\" & "crTruyvet_mathang.rpt"
        customerReport = New ReportDocument()
        customerReport.Load(reportPath)
        customerReport.SetDataSource(moduleReportConfig.GetDataTable(sqlQuery))
        customerReport.SetParameterValue("TMaHH", Mahanghoa)
        customerReport.SetParameterValue("TTenHH", Tenhanghoa)
        customerReport.SetParameterValue("company", globalVariale.COMPANY)
        customerReport.SetParameterValue("address", globalVariale.ADDRESS)
        Me.CrThekho_NXTTongHopview.ReportSource = customerReport
    End Sub
    Public Sub setMaHH(ByVal s As String)
        Mahanghoa = s
    End Sub

    Public Sub setTenHH(ByVal s As String)
        Tenhanghoa = s
    End Sub

End Class
